home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / pdf_sec.ps < prev    next >
Text File  |  1997-08-14  |  2KB  |  59 lines
  1. %    Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_sec.ps
  19. % Security hooks for PDF reader.
  20.  
  21. % This file contains the procedures that have to take encryption into
  22. % account when reading a PDF file.  There is no actual decryption code here,
  23. % because U.S. export control laws might prohibit making this file available
  24. % to anyone outside the U.S. if the code were included.  Instead, you can
  25. % get the real version of this file from
  26. %    http://www.ozemail.com.au/~geoffk/pdfencrypt/pdf_sec.ps
  27. % or, if the ~ character upsets your software,
  28. %    http://www.ozemail.com.au/%7Egeoffk/pdfencrypt/pdf_sec.ps
  29. % NOTE: these URLs are referenced in the error message below.
  30.  
  31. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  32. .currentglobal true .setglobal
  33. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  34. pdfdict begin
  35.  
  36. % Process the encryption information in the Trailer.
  37. /pdf_process_Encrypt
  38.  { (\n\n) print
  39.    (    **** The PDF input file uses encryption and cannot be processed.\n) print
  40.    (    **** Please get and install the patch available from\n) print
  41.    (    ****     http://www.ozemail.com.au/~geoffk/pdfencrypt/pdf_sec.ps\n) print
  42.    (\n\n) print flush
  43.    /pdfopen cvx /invalidfileaccess signalerror
  44.  } bind def
  45.  
  46. % Run the code to resolve an object reference.
  47. /pdf_run_resolve
  48.  { PDFfile resolveopdict .pdfrun
  49.  } bind def
  50.  
  51. % Prefix a decryption filter to a stream if needed.
  52. % Stack: readdata? dict parms file/string filternames
  53. /pdf_decrypt_stream
  54.  {
  55.  } bind def
  56.  
  57. end            % pdfdict
  58. .setglobal
  59.